
Select OPTION:    INQUIRE TO FILE ENTRIES



OUTPUT FROM WHAT FILE: PRESCRIPTION// PRINT TEMPLATE  
                                          (1883 entries)
Select PRINT TEMPLATE: PSO DRUG
     1   PSO DRUG LIST        (Aug 29, 1985)                File #50  
     2   PSO DRUG WARNINGS      
                              (Dec 13, 2012@14:34) User #119 File #52  
     3   PSO DRUG WARNINGS HEADER      
                              (Jan 15, 2010@11:57)          File #52  
CHOOSE 1-3: 2  PSO DRUG WARNINGS    
                              (Dec 13, 2012@14:34) User #119 File #52  
ANOTHER ONE: 
STANDARD CAPTIONED OUTPUT? Yes//   (Yes)
Include COMPUTED fields:  (N/Y/R/B): NO// Y  Computed Fields

NAME: PSO DRUG WARNINGS                 DATE CREATED: DEC 13, 2012@14:34        
FILE: PRESCRIPTION                      USER #: 119
  DATE LAST USED: DEC 13, 2012
 DESCRIPTION:   Outpatient Prescription Drug Warnings 
  ROUTINE INVOKED: ^PSOXWRN             PREVIOUS ROUTINE INVOKED: PSOXWRN
  HEADER (c): [PSO DRUG WARNINGS HEADER]
FIRST PRINT FIELD: "\\";X//
THEN PRINT FIELD: "^";X//
THEN PRINT FIELD: PATIENT;X//
THEN PRINT FIELD: "^";X//
THEN PRINT FIELD: PATIENT:SSN;X//
THEN PRINT FIELD: "^";X//
THEN PRINT FIELD: PATIENT://
  THEN PRINT PATIENT FIELD: STREET ADDRESS [LINE 1];X//
  THEN PRINT PATIENT FIELD: "^";X//
  THEN PRINT PATIENT FIELD: STREET ADDRESS [LINE 2];X//
  THEN PRINT PATIENT FIELD: "^";X//
  THEN PRINT PATIENT FIELD: STREET ADDRESS [LINE 3];X//
  THEN PRINT PATIENT FIELD: "^";X//
  THEN PRINT PATIENT FIELD: CITY;X//
  THEN PRINT PATIENT FIELD: "^";X//
  THEN PRINT PATIENT FIELD: STATE;X//
  THEN PRINT PATIENT FIELD: "^";X//
  THEN PRINT PATIENT FIELD: ZIP CODE;X//
  THEN PRINT PATIENT FIELD: "^";X//
  THEN PRINT PATIENT FIELD: PHONE NUMBER [RESIDENCE];X//
  THEN PRINT PATIENT FIELD: "^";X//
  THEN PRINT PATIENT FIELD: PHONE NUMBER [WORK];X//
  THEN PRINT PATIENT FIELD: "^";X//
  THEN PRINT PATIENT FIELD: PHONE NUMBER [CELLULAR];X//
  THEN PRINT PATIENT FIELD: "^";X//
  THEN PRINT PATIENT FIELD: $S(DATE OF DEATH:"Y",1:"N");X//
  THEN PRINT PATIENT FIELD: "^";X//
  THEN PRINT PATIENT FIELD: //
THEN PRINT FIELD: RX #;X//
THEN PRINT FIELD: "^";X//
THEN PRINT FIELD: DRUG;X//
THEN PRINT FIELD: "^";X//
THEN PRINT FIELD: NUMDATE(FINISH DATE/TIME);X//
THEN PRINT FIELD: "^";X//
THEN PRINT FIELD: $P((QTY/DAYS SUPPLY),".");X;"QTY PER DAY"//
THEN PRINT FIELD: "^";X//
THEN PRINT FIELD: $S((STATUS="ACTIVE")&(PARK="YES"):"ACTIVE/PARK",1:STATUS);X//
THEN PRINT FIELD: "^";X//
THEN PRINT FIELD: (#9)-(COUNT(REFILL));X;"REF REM"//
THEN PRINT FIELD: "^";X//
THEN PRINT FIELD: PROVIDER;X//
THEN PRINT FIELD: "^";X//
THEN PRINT FIELD: NUMDATE(LAST DISPENSED DATE);X//
THEN PRINT FIELD: "^";X//
THEN PRINT FIELD: NUMDATE(RETURNED TO STOCK);X//
  COMPILED (c): YES